CAAPlanetPerihelionAphelion_MercuryPerihelion <-
function(k){
.Call("CAAPlanetPerihelionAphelion_MercuryPerihelion", k)
}
